home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1297.dms / var1297.adf / Rexx / EP_Volume.dopus < prev   
Text File  |  1993-06-30  |  407b  |  27 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993 DEFECT
  3.     fragt über Requester Lautstärke ab
  4. */
  5. options results
  6.  
  7. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  8.  do
  9.   address 'DOPUS.1'
  10.   toptext 'No Eagleplayer found !'
  11.   exit
  12.  end
  13.  
  14. address 'DOPUS.1'
  15.  
  16. getstring 'Enter_Volume_for_Eagleplayer_(0..64)'
  17. aha=result
  18.  
  19. address 'rexx_EP'
  20. volume aha
  21. aha=result
  22.  
  23. address 'DOPUS.1'
  24. toptext 'Eagleplayer: '||aha
  25.  
  26. exit
  27.